home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00103_Checkbox behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  674 b   |  34 lines
  1. property pSpr, pState, pOrigMember, pCheckMark, pTiedToGlobal
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pTiedToGlobal = symbol(pTiedToGlobal)
  6.   pOrigMember = pSpr.member
  7.   pCheckMark = nextMember(pSpr.member)
  8.   mUpdate(me)
  9. end
  10.  
  11. on mouseDown me
  12.   pState = not pState
  13.   (the globals)[pTiedToGlobal] = pState
  14.   mUpdate(me)
  15.   clickSound()
  16. end
  17.  
  18. on mUpdate me
  19.   pState = (the globals)[pTiedToGlobal]
  20.   if pState then
  21.     pSpr.member = pCheckMark
  22.   else
  23.     pSpr.member = pOrigMember
  24.   end if
  25. end
  26.  
  27. on mUpdateCheckBox me
  28.   mUpdate(me)
  29. end
  30.  
  31. on getPropertyDescriptionList me
  32.   return [#pTiedToGlobal: [#default: "gDummy1", #comment: "Global To Track", #format: #string]]
  33. end
  34.